Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/scud3/scud.frm

Text File | 1995-05-08 | 5KB | 183 lines

VERSION 2.00
Begin Form Form1
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Iraqi Missile"
   ClientHeight    =   4005
   ClientLeft      =   1365
   ClientTop       =   1770
   ClientWidth     =   5550
   Height          =   4410
   Icon            =   SCUD.FRX:0000
   Left            =   1305
   LinkMode        =   1  'Source
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   4005
   ScaleWidth      =   5550
   Top             =   1425
   Width           =   5670
   Begin Timer HSPTimer
      Enabled         =   0   'False
      Interval        =   1000
      Left            =   480
      Top             =   3645
   End
   Begin Timer TenSecondClock
      Enabled         =   0   'False
      Interval        =   2500
      Left            =   195
      Top             =   3645
   End
   Begin PictureBox Picture2
      Height          =   2076
      Left            =   3720
      Picture         =   SCUD.FRX:0302
      ScaleHeight     =   2040
      ScaleWidth      =   1665
      TabIndex        =   3
      Top             =   1896
      Width           =   1692
   End
   Begin CommandButton Command2
      Caption         =   "Hide SCUD!"
      Enabled         =   0   'False
      Height          =   375
      Left            =   3600
      TabIndex        =   1
      Top             =   600
      Width           =   1815
   End
   Begin CommandButton Command1
      Caption         =   "Show SCUD!"
      Height          =   375
      Left            =   3600
      TabIndex        =   0
      Top             =   120
      Width           =   1815
   End
   Begin PictureBox Picture1
      Height          =   3468
      Left            =   96
      ScaleHeight     =   3435
      ScaleWidth      =   3435
      TabIndex        =   5
      Top             =   96
      Width           =   3468
   End
   Begin Label Label2
      Caption         =   "Click on the SCUD!"
      Height          =   252
      Left            =   960
      TabIndex        =   4
      Top             =   3648
      Width           =   1812
   End
   Begin Label Label1
      Caption         =   "Click the MICOM logo to blow away the SCUD program!"
      Height          =   615
      Left            =   3600
      TabIndex        =   2
      Top             =   1080
      Width           =   1815
   End
End
Dim IgnoreScudHits As Integer

Sub Command1_Click ()
    Form1.BackColor = Picture2.BackColor
    TenSecondClock.Enabled = 1
    HSPTimer.Enabled = 1
    Picture1.Visible = 1
    Label2.Visible = 1
    Command1.Enabled = 0
    Command2.Enabled = 1
End Sub

Sub Command2_Click ()
    TenSecondClock.Enabled = 0
    HSPTimer.Enabled = 0
    Picture1.Visible = 0
    Command2.Enabled = 0
    Command2.Caption = "Hide SCUD!"
    Command1.Enabled = 1
    Label2.Visible = 0
    Form1.BackColor = Picture2.BackColor
    Label2.BackColor = Picture2.BackColor
    Label1.BackColor = Picture2.BackColor
    Form1.Icon = Form2.TrashOut.Picture
End Sub

Sub Form_Load ()
    Load Form2
    MsgBox "Brought to you by" + Chr$(13) + Chr$(10) + "Microsoft Visual Basic" + Chr$(13) + Chr$(10) + "and US Army MICOM Friends!" + Chr$(13) + Chr$(10) + "(We're the PATRIOT People!)", 64, "Thank You, Desert Storm!"
    IgnoreScudHits = 0
    Picture1.Visible = 0
    Picture1.Picture = Form2.PictureScud.Picture
    TenSecondClock.Enabled = 0
    HSPTimer.Enabled = 0
    Label2.Visible = 0
End Sub

Sub Form_Unload (Cancel As Integer)
    Picture2_Click
End Sub

Sub HSPTimer_Timer ()
    If Command2.Enabled Then
        If Command2.Caption = "Hide SCUD!" Then
            Command2.Caption = "USAF ATTACK!"
            Form1.Icon = Form2.TrashBurning.Picture
        Else
            Command2.Caption = "Hide SCUD!"
            Form1.Icon = Form2.TrashOut.Picture
        End If
    End If
End Sub

Sub Picture1_Click ()
    Dim BoxReply As Integer
    If IgnoreScudHits = 0 Then
        Label2.Visible = 0
        Picture1.Picture = Form2.PictureSaddam.Picture
        BoxReply = MsgBox("Don't hit my Scuds!" + Chr$(13) + Chr$(10) + "I've had enough!", 512 + 16 + 2, "A Message from Saddam...")
        If BoxReply = 3 Then
            End
        ElseIf BoxReply = 5 Then
            IgnoreScudHits = 1
        End If
        Picture1.Picture = Form2.PictureScud.Picture
        Label2.Visible = 1
    Else
        If Form1.BackColor < 0 Then
            Form1.BackColor = RGB(255, 0, 0)
        ElseIf Form1.BackColor = RGB(255, 0, 0) Then
            Form1.BackColor = RGB(0, 255, 0)
        ElseIf Form1.BackColor = RGB(0, 255, 0) Then
            Form1.BackColor = RGB(0, 0, 255)
        ElseIf Form1.BackColor = RGB(0, 0, 255) Then
            Form1.BackColor = RGB(255, 0, 0)
        Else
            Beep
        End If
        Label1.BackColor = Form1.BackColor
        Label2.BackColor = Form1.BackColor
    End If
End Sub

Sub Picture2_Click ()
    Command2_Click
    Picture1.Picture = Form2.PictureNuke.Picture
    Picture1.Visible = 1
    MsgBox "SCUD blown from the face of the earth!", 64, "Bye, Bye SCUD!"
    End
End Sub

Sub TenSecondClock_Timer ()
    If Form1.Caption = "Iraqi Missile" Then
        Form1.Caption = "Busted SCUD!"
    Else
        Form1.Caption = "Iraqi Missile"
    End If
End Sub